﻿Public Class Criteria

    Private _property As String
    Private _value As Object
    Private _operator As CriteriaOperator

    Public Sub New(ByVal propertyName As String, ByVal value As Object, ByVal [operator] As CriteriaOperator)
        _property = propertyName
        _value = value
        _operator = [operator]
    End Sub

    Public Property PropertyName() As String
        Get
            Return _property
        End Get
        Set(ByVal value As String)
            _property = value
        End Set
    End Property

    Public Property Value() As Object
        Get
            Return _value
        End Get
        Set(ByVal value As Object)
            _value = value
        End Set
    End Property

    Public Property CriteriaOperator() As CriteriaOperator
        Get
            Return _operator
        End Get
        Set(ByVal value As CriteriaOperator)
            _operator = value
        End Set
    End Property

End Class
